home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / progtool / modula2 / module / accesori.mod next >
Text File  |  1995-11-25  |  716b  |  24 lines
  1. MODULE Accessorie;
  2. FROM SYSTEM IMPORT ADR;
  3. FROM AES IMPORT ApplInitialise,EventMessage,MenuRegister,FormAlert;
  4. FROM GEMAESBase IMPORT AccessoryOpen;
  5.  
  6. VAR AppID,AccID,formret :INTEGER;
  7.     AccTitle,accString    : ARRAY[0..100] OF CHAR;
  8.     MessageBuffer: ARRAY [0..7] OF INTEGER;
  9.  
  10. BEGIN
  11.     AppID:=ApplInitialise();
  12.     AccTitle:=' Mein Acc.   ';
  13.     AccID:=MenuRegister(AppID,AccTitle);
  14.     LOOP
  15.        EventMessage( ADR(MessageBuffer));
  16.        IF MessageBuffer[0]=AccessoryOpen THEN
  17.  
  18.     accString :='[0][Accessory | Nur zum Test!!!!! |  Christian   Ledermann| ver 0.0 vom 25.02.93 ][  OK  ]';
  19.              formret:=FormAlert(1,accString);
  20.  
  21.        END(*IF*);
  22.     END(*LOOP*);
  23. END Accessorie.
  24.